home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1995 October / EnigmA AMIGA RUN 01 (1995)(G.R. Edizioni)(IT)[!][issue 1995-10][Aminet 7].iso / Aminet / comm / bbs / FileLister144.lha / Rexx / Upload.Trans < prev   
Text File  |  1994-09-13  |  452b  |  20 lines
  1. /* Upload.Trans fuer den Filelister, falls MemoryLamer=NO */
  2.  
  3. options results
  4.  
  5. systeminfo 2 ; currentarea=result
  6. bbsidentify term
  7. bbsline=strip(word(result,4))
  8.  
  9. /* Schauen, ob Filelister ueberhaupt aktiv ist */
  10. befehl="host=show('P','FILELISTER."||bbsline||"')"
  11. interpret befehl
  12.  
  13. /* Wenn ja, dann die aktuelle Filearea rescannen */
  14. if host then do
  15.   befehl="address 'FILELISTER."||bbsline||"' 'RESCAN "||currentarea||"'"
  16.   interpret befehl
  17. end
  18.  
  19. exit 0
  20.